FishMarket 1.0/FishMarket v1.0.iso/fishies/101-125/disk_124/tarot/t.writerd

AmigaBASIC Source Code | 1992-05-06 | 6KB | 264 lines

CLEAR,25000
CLEAR,50000
 RESTORE negative
 Z$="Datad"
 OPEN Z$ FOR OUTPUT AS 1
 Q$=""
 WHILE Q$<>"-X-"
 READ Q$
 WRITE #1,Q$
 WEND
 CLOSE 1
 PRINT "BY"
 END

  negative:
 DATA "14WX"
 DATA "a sever unyeilding man"
 DATA "a man strict in judgement"
 DATA "possibilty of opposition or"
 DATA "a quarrel Also may mean"
 DATA "unwelcome advice should be"
 DATA "followed!"
 DATA "14PX"
 DATA "Choose your companions well"
 DATA "avoid taking risks. Also"
 DATA "a Perverse use of talent!"
 DATA "14SX"
 DATA "an unjust cruel man"
 DATA "a Crude barbarian"
 DATA "a Misuse of the law!"
 DATA "14CX"
 DATA "a man of violence"
 DATA "dishonesty & double dealing"
 DATA "Loss scandal & injustice!"
 DATA "13WX"
 DATA "a virtous but stirct woman"
 DATA "a Witch or a miserly woman"
 DATA "bad weather or infidelity"
 DATA "a change of luck!"
 DATA "13PX"
 DATA "Neglected Duties Suspicion"
 DATA "Paranoia fear of failure"
 DATA "fear of poverty mistrust!"
 DATA "13SX"
 DATA "A prudish bigoted woman"
 DATA "a nag!"
 DATA "13CX"
 DATA "a good but perverse woman"
 DATA "lady luck smiles"
 DATA "immorality dishonesty!"
 DATA "12WX"
 DATA "discord division interuption"
 DATA "in marriage frustration!"
 DATA "12PX"
 DATA "Idleness inertia stagnation"
 DATA "a careless youth!"
 DATA "12SX"
 DATA "Incapacity extravagance"
 DATA "a wastrel braggadocio!"
 DATA "12CX"
 DATA "examine all propositions"
 DATA "beware fraud trickery"
 DATA "Rivaly false emotions!"
 DATA "11WX"
 DATA "Indecision on a project"
 DATA "unpleasent news!"
 DATA "11PX"
 DATA "unfavorable news"
 DATA "dissapation luxury"
 DATA "prodigality"
 DATA "surrounded by opposition!"
 DATA "11SX"
 DATA "Unforseen events  illness"
 DATA "the defeat of an imposter"
 DATA "unprepared state!"
 DATA "11CX"
 DATA "deceptions will be revealed"
 DATA "obstacles will be uncovered!"
 DATA "10WX"
 DATA "separation emigration"
 DATA "ceaseless labor!"
 DATA "10PX"
 DATA "robbery lost inheritance"
 DATA "project may be a poor risk"
 DATA "gambling loss of honor!"
 DATA "10SX"
 DATA "advantage profit is costly"
 DATA "temporary power illusion!"
 DATA "10CX"
 DATA "family quarrel"
 DATA "promises are broken"
 DATA "friendship is lost!"
 DATA "9WX"
 DATA "adversity delay displeasure!"
 DATA "9PX"
 DATA "voided project  bad faith"
 DATA "possible loss of home"
 DATA "loss of power!"
 DATA "9SX"
 DATA "shame imprisonment madness!"
 DATA "9CX"
 DATA "overindulgence in food and"
 DATA "drink  mistakes in plans!"
 DATA "8WX"
 DATA "arrows of jealousy quarrels!"
 DATA "8PX"
 DATA "unethical use of skills!"
 DATA "8SX"
 DATA "Freedom  danger ebbs away "
 DATA "new beginings now possible!"
 DATA "8CX"
 DATA "Joy feasting merriment"
 DATA "the material plane rules"
 DATA "over the spiritual plane!"
 DATA "7WX"
 DATA "perplexity Embarrassment"
 DATA "anxiety!"
 DATA "7PX"
 DATA "impatience worry over money!"
 DATA "7SX"
 DATA "seek counsel instruction!"
 DATA "7CX"
 DATA "detemination pays off"
 DATA "a dream comes true!"
 DATA "6WX"
 DATA "beware a victorious enemy"
 DATA "indefinte delay demotion!"
 DATA "6PX"
 DATA "unfair business practice"
 DATA "avarice envy bad debts!"
 DATA "6SX"
 DATA "stalemate  patience needed"
 DATA "no immediate way of escape!"
 DATA "6CX"
 DATA "a gift from the past"
 DATA "clinging to the old ways"
 DATA "outworn ideas symbols!"
 DATA "5WX"
 DATA "fighting amoung friends"
 DATA "contradictions"
 DATA "complications!"
 DATA "5PX"
 DATA "good company success in love!"
 DATA "5SX"
 DATA "stormy weather ahead"
 DATA "potential weakness!"
 DATA "5CX"
 DATA "return of a friend"
 DATA "end of a quarrel"
 DATA "hopefull outlook!"
 DATA "4WX"
 DATA "peace prosperity joy!"
 DATA "4PX"
 DATA "obstacles setbacks"
 DATA "a wastage of money!"
 DATA "4SX"
 DATA "social unrest activity"
 DATA "use precaution!"
 DATA "4CX"
 DATA "novelty  new friends!"
 DATA "3WX"
 DATA "beware of help offered"
 DATA "disapointment may come!"
 DATA "3PX"
 DATA "mediocrity in workmanship"
 DATA "careless effort!"
 DATA "3SX"
 DATA "a compromising meeting"
 DATA "Disorder & confusion!"
 DATA "3CX"
 DATA "excess of physical pleasure!"
 DATA "2WX"
 DATA "physical domination by"
 DATA "others  suffering!"
 DATA "2PX"
 DATA "messages in writing"
 DATA "the balance is upset"
 DATA "ambitiousness is a danger!"
 DATA "2SX"
 DATA "movement in sometimes wrong"
 DATA "direction  release!"
 DATA "2CX"
 DATA "viloent emotion false love!"
 DATA "1WX"
 DATA "Clouded joy  a false start!"
 DATA "1PX"
 DATA "The evil side of riches!"
 DATA "1SX"
 DATA "disaster Tyranny obstacles!"
 DATA "1CX"
 DATA "Instability  upset loss!"
 DATA "1TX"
 DATA "destructive power weakness!"
 DATA "2TX"
 DATA "sensual enjoyment peace"
 DATA "conceit!"
 DATA "3TX"
 DATA "poverty inaction War!"
 DATA "4TX"
 DATA "immaturity injury!"
 DATA "5TX"
 DATA "unconventionality"
 DATA "gulibility"
 DATA "unorthodoxy!"
 DATA "6TX"
 DATA "Parental interference"
 DATA "wrong choice Quarrels!"
 DATA "7TX"
 DATA "sudden collapse"
 DATA "unethical victory"
 DATA "vengence!"
 DATA "8TX"
 DATA "the abuse of power"
 DATA "Discord!"
 DATA "9TX"
 DATA "refusal to grow old"
 DATA "foolish vices"
 DATA "immaturity!"
 DATA "10TX"
 DATA "you reap what you have"
 DATA "sown  Luck will change!"
 DATA "11TX"
 DATA "inequality severity!"
 DATA "12TX"
 DATA "arrogance ego"
 DATA "resistance to spirit!"
 DATA "13TX"
 DATA "inertia stagnation!"
 DATA "14TX"
 DATA "competing interests"
 DATA "unforunate combination!"
 DATA "0TX"
 DATA "flawed decisions!"
 DATA "15TX"
 DATA "Physical healing"
 DATA "spirituality!"
 DATA "16TX"
 DATA "imprisonment"
 DATA "small disaster"
 DATA "oppression"
 DATA "fire!"
 DATA "17TX"
 DATA "stubborness pessimism!"
 DATA "18TX"
 DATA "survival tranquility"
 DATA "practical dreams!"
 DATA "19TX"
 DATA "broken engagement"
 DATA "future road clouded"
 DATA "end of drought!"
 DATA "20TX"
 DATA "separation ill health"
 DATA "disillusionment"
 DATA "fear of death"
 DATA "growing old!"
 DATA "21TX"
 DATA "earthbound spirit"
 DATA "fear of change"
 DATA "refusal to learn!"
DATA "-X-"
 '168
  '... -...1...2...3...4...5..